home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / array / createstringstr.c < prev    next >
C/C++ Source or Header  |  2001-05-12  |  508b  |  37 lines
  1.  
  2. #include "tek/array.h"
  3.  
  4. /* 
  5. **    TEKlib
  6. **    (C) 2001 TEK neoscientists
  7. **    all rights reserved.
  8. **
  9. **    string = TCreateStringStr(TAPTR mmu, TSTRPTR initial)
  10. **
  11. **    create dynamic string from regular string.
  12. **
  13. */
  14.  
  15. TSTRPTR TCreateStringStr(TAPTR mmu, TSTRPTR initial)
  16. {
  17.     TUINT len;
  18.     TSTRPTR str;
  19.     
  20.     len = initial ? TStrLen(initial) : 0;
  21.     str = TCreateArray(mmu, 1, len + 1, TNULL);
  22.     if (str)
  23.     {
  24.         if (len)
  25.         {
  26.             TSTRPTR d = str;
  27.             while ((*d++ = *initial++));
  28.         }
  29.         else
  30.         {
  31.             *str = 0;
  32.         }
  33.     }
  34.     
  35.     return str;
  36. }
  37.